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A reminder: 64K of memory is required to run 
Structured Basic. 


BASICGEN 


Basicgen is a powerful tool which allows the 
programmer to generate a version of Structured 
Basic which will occupy less than the 32K bytes 
required for the entire Basic interpreter. The 
space which is not used by Basic can be used for 
longer programs, larger arrays and strings, 
additional Basic-KSAM and normal disk buffers, etc. 


The space is saved by not implementing those 
features of Structured Basic which are not required 
for a specific application. One system may not 
require Basic-KSAM access while another may be a 
run time only package which does not require the 
PRINT USING instruction. 


Notice that a program with large arrays may be 
developed using shorter arrays and after the 
program runs properly, the DIMension statements may 
be changed to reflect the needed array size and the 
program then run under a run time only version of 
Sbasic. 


The Sbasic which is generated by Basicgen will 
occupy approximately 2 to 3 K bytes more as a disk 
file than as a running program. This is because 
Basicgen saves this amount of the User Area on the 
disk. As an example, when Basicgen is used to 
create a full fledged Sbasic, the disk file will 
occupy 35K bytes while the same program (as 
Supplied on your disk from Cromemco) can occupy 32K 
bytes. This difference is accounted for by space 
within Sbasic which may be used by a program (User 
Area.) 


The following files must be present on the disk in 
the current drive in order for Basicgen to function 
properly: 


Bl.sbr C2.sbr C8.sbr 
B2.sbr C2a.sbr C9.sbr 
B3.sbr C3.sbr C9a.sbr 
B4.sbr C3a.sbr C9b.sbr 
B5.sbr C4.sbr Sbasic.sbr 
Basicgen.com C5.sbr Sbasicio.sbr 
Baslib.sbr C6.sbr 

Cl.sbr C7.sbr 


If Bzsicgen cannot find any one of these files an 
error message will be generated and control will be 
returned to CDOS. If this happens the missing file 
must be transferred onto the disk and Basicgen 
executed again. 


The most likely cause of this type of error is the 
failure of the user to rename the re-assembled 
Sbasicio routine from Sbasicio.rel to Sbasicio.sbr. 
Refer to the section of this Addendum on Modifying 
the Sbasic I/O Drivers for more information on this 
error. 


To generate a new version of Sbasic enter the 
following command line in response to the CDOS 
prompt (not in Sbasic): 


BASICGEN filename 


where filename is the name of the file which is to 
be generated. Notice that no file name extension 
should be used with the file name, it will 
automatically receive an extension of COM. This is 
the name which will be used to call the newly 
generated version of Sbasic. 


The Basicgen program will ask questions pertaining 
to the customized version of Sbasic which is to be 
generated. The proper response to each question is 
a Y or N £or YES or NO respectively. 


The first question is: 


Will this be an interactive version 
of SBASIC?? 


Notice that Basicgen prompts with a double question 
mark. If the user responds with an N a run-time 
only version of Sbasic will be generated. This 
will save about 5500 bytes of memory. 


The only way to execute a program under a run time 
version of Sbasic is to declare the name of a saved 
Sbasic file in the CDOS command line. ТЕ 
RTBASIC.COM is thc name of the generated run time 
version of Sbasic and INVENT.SAV is the name of a 
saved Sbasic file, the following CDOS command line 
will execute the program and return control to 
CDOS: 


RTBASIC INVENT.SAV 


Because the listing, editing, entering, and manual 
loading features are not implemented in a run time 
Sbasic the prompt (>>) is never displayed. The 
user must enter and edit a program using a version 
of Sbasic which is not designed for run time only 
use. 


Notice that in this prompt the term interactive 
refers to the Sbasic interpreter and not to the 
saved program. A program running under a run-time 
only version of Sbasic may prompt the user and may 
be an interactive program. 


The second question is: 
Do you wish KSAM file access capability?? 


If the user responds with an N no Basic-KSAM 
instructions will be included in the version of 
Sbasic which is generated. This will save about 
6500 bytes of memory. 


The only instructions which are affected by the 
answer to this question are those listed in chapter 
22 of the 32K Structured Basic Manual. 


The third question is: 


Do you wish the full text of error messages 
displayed?? 


If the user responds with an N the Sbasic which is 
generated will display only the appropriate error 
number (as listed in the appendix to the 32K 
Structured Basic Manual) when an error is 
generated. This will save about 1350 bytes of 
memory. 


The fourth question is: 
Do you wish editing capability?? 


This question will only be asked if the answer to 
question number one indicated that the generated 
Sbasic was not to be a run time only version. If 
the user responds with an N the In Line Basic 
Editor (as described on pages 74 through 78 of the 
32K Structured Basic Manualj will not be included 
in this version of Sbasic. This will save about 
770 bytes of memory. 


The fifth question is: 


Do you wish to include the PRINT USING 
instruction?? 


If the response to this question is an N, Print 
Using will not be implemented in the generated 
version of Sbasic. This will save about 900 bytes 
of memory. 


The sixth question is: 
Do you wish to allow user defined functions?? 


An N in response to this question will not allow 
user defined functions to be used in the generated 
version of Sbasic. No standard Sbasic functions 
will be affected by the response to this questicn. 
This will save about 190 bytes of memory. 


The seventh question is: 


Do you want to include the LOG and EXP 
functions and the power operator?? 


If the question is answered with an N, the 
Logarithm and Exponent functions will be 
inoperative and the power operator (** or ^) will 
not be available in the version of Sbasic which is 
being generated. Also, if the question is answered 
negatively, the square root and trigonometric 
functions will not be able tc be implemented 
because they call subroutines common to the Log and 
Exp functions. This will save about 890 bytes of 
memory. 


The eighth question is: 


Do you wish to include the square root 
function?? 


An N in response to this question will disable the 
square root (SQR) function in Sbasic. This will 
save about 175 bytes of memory. Note that this 
question will not be asked if question number seven 
was answered negatively. 


The ninth question is: 


Do you wish to include the trigonometric 
functions?? 


N in response to this question will disable the 
trigonometric functions (SIN, COS, TAN, and ATN). 
This will save about 510 bytes of memory. Note 
that this question will not be asked if question 
number seven was answered negatively. 
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The last question is: 


Do you wish to include the HEX, VALC, DATE, 
and TIME functions and the EXPAND 
instruction?? 


If the user types an N in response to this, the 
last question, the named functions and instruction 
will not be included in the generated version of 
Sbasic. This will save about 400 bytes of memory. 


ADDITIONAL FEATURES 


File attributes may now be established or changed 
from Sbasic. The format of the attribute 
instruction is: 


Attr file-ref, "parameters" 
or 
Atrib file-ref, "parameters" 


In the above instructions file-ref is a file 
reference to the file whose attributes are to be 
altered. File-ref may be a string or a string 
literal enclosed in quotation marks. Notice that 
ambiguous file references may be used. Parameters 
is one or more of the permissable parameters (+, E, 
R, and W), or no parameter (a null string) at all. 
Notice that there is no difference between the two 
forms of the instruction. 


Please refer to the CDOS Manual, Intrinsic Commands 
Section for further information. 


In order to maintain compatability with CDOS, an 
additional file renaming facility has been added to 
Sbasic. The new instruction reverses the two 
parameters of the Sbasic RENAME instruction. As in 
CDOS, the new instruction is called REN. The 
format of the instruction is: 


REN new-file-ref, old-file-ref 


where the file-refs are strings or string literals 
enclosed in quotation marks. 


The DSK command now has two additional permissable 
parameters: 


DSK "*" 
and 
DSK "-dr" 
If the command is given in the first form, the disk 
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drive motors will be turned off. They will 
automatically be turned on again when a disk is 
accessed. 


In the second form, dr represents one of the 
allowable disk drive specifiers as described in the 
32K Structured Basic Manual. When dr is preceded 
by a dash (minus sign) the disk in the specified 
drive will be ejected. 


“Two new functions have been added to take advantage 


of the time and date features of CDOS and the 
Cromemco 3102 terminal. To set the date and time 
give the instructions: 
Dummy$ = Date$("yymmdd") 
and 
Dummy$ = Time$("hhmmss") 
where yymmdd are digits representing the year, 
month, and day and hhmmss are digits representing 
the hour, minute, and second. 
To cause the functions to return the date and time 
(which will only be accurate if the system includes 
a Cromemco 3102 terminal) they can be called as: 
Print Date$("") 
and 
Print Time$("") 
Note that the functions may be assigned to string 


variables, printed (as above), or called in any 
other manner a standard function may be called. 


a 


Input to Sbasic from the terminal now takes 
advantage of the INPUT BUFFERED LINE system call. 
This will not affect most prograns. Sbasic 
programs using the input timer must use the old 
(character by character) input routine. This can 
be invoked by giving the command: 


SET 14,1 


A new driver has been added to Sbasic with the 
name: 


$cOnsole 


If this file is OPENed, a PUT instruction can 
invoke the CDOS call number 142 (8E hex), SET 
SPECIAL CRT FUNCTION: 


OPEN\1\"SCONSOLE" 
PUT\1,d,e\ [list] 


where d is the contents of the D register and e is 
the contents of the E register prior to the system 
call. List is the optional list of information to 
be displayed on the console after the system call. 
If e is omitted, it assumes a default value of 
zero. 


Note that PRINT, GET, and INPUT instructions may 
also be used with this file following the format 
described above. Please refer to the CDOS manual, 
Programmer's Guide, system call 142, for more 
information. 


Two additional instructions are now available for 
use with Basic-KSAM files: 


RGET\p£fn\var-l,...,var-n 
KPUT\pfn\exp-1,...,exp-n 


where pfn is a Primary Data file number, var-1 
through var-n is a list of variables, and exp-1 
through exp-n is a list of expressions or 
variables. 


These instructions may be used after the Current 
Record Pointer (CRP) has been positioned and 
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(optionally) after part of the current record has 
been written (KPUT) or read (KGET). They will 
cause additional fields (variables) in a long 
record to be written to or read from the same 
(eurrent) record. 


For example, the following two sets of instructions 
are equivalent: 


100 Kget£fwd\l\Id'number, Year, Amount, Value 
and 


100 Kget£fw@\l\ 

110 Kget\l\Id'number, Year 
120 Kget\l\Amount 

130 Kget\l\Value 


A source listing of- the Sbasic Input/Output 
routines is included at the end of this addendum. 
А copy of the 780 source code for these I/O drivers 
is included on the Sbasic diskette under the file 
name SBASICIO.280. 
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Please make 
manual: 


Page : 


Add : 


the following corrections to the 


64 


Add the following line to the 
Statistical Analysis Program: 


225 If Variante < 0 Then Variance = 0 
This will compensate for round-off 


error in the event that all numbers 
which are entered are the same. 


73, second example 

Dir “ASE AN 

Dir "A:" 

It is no longer necessary to follow a 
drive designation in this command by 
*.*. The drive specification alone 


will cause all files on that drive to 
be cataloged. 


86, middle of page 
(if L2 is not specified, Ll=L1) 


(if L2 is not specified, L2=L1) 


184, Example Program, Line 110 
110 Dim A$(21) 
110 Dim Text$(21) 
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To 


151, paragraph 4 


All normal PRINT functions (such as 
TAB, SPC, semicolon, and comma) are 
overridden by the PRINT USING 
instruction. 


All normal PRINT functions (such as 
TAB, SPC, and comma) are overridden 
by the PRINT USING instruction. The 
terminating semicolon will still 
suppress the generation of a new 
line. 


235, 2nd line 

format: SET aexp-l, aexp-2 

format: [Ln] Set aexp-1, aexp-2 
Note that this instruction may be 
used as a statement as well as a 


command (i.e., it may be used with a 
line number.) 


240, lst and 5th lines 
instruction 


function 


242, 2nd line 

format: OUT m,b 

format: [Ln] OUT m,b 

Note that this instruction may be 
used as a statement as well as a 


command (i.e., it may be used with a 
line number.) 
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Page : 244, 2nd line 
From : format: POKE m,b 
To : format: [Ln] POKE m,b 
Note that this instruction may be 
used as a statement as well as a 


command (i.e., it may be used with a 
line number.) 


Page : 254, 5th paragraph, 5th line 
From : reference to 


To : definition of 


Page : 254, 6th paragraph, 3rd line 
From : referenced. 
To : defined. 


Page : 263, first paragraph of Note, next to 
last line 


From : Procedures. 


To : files. 


Page : 306, next to last line 
From : 2304 
To : 2560 
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Page 


From 


To 


328, last 3 lines 

40 Kopen MN Vol1$,Vo12$,Vo13$,Vo14$ 
Because Vol3$ is a null string a 2 
volume file (Voll$ and Vol2$) are 
opened. 

40 Kaltopen MN Voll$,Vol2$,Vol3$,Vol4$ 
Because Vol3$ is a null string a 2 


volume file (Voll$ and Vo12$) is 
opened. 
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MODIFYING THE SBASIC I/O DRIVERS 


A source listing of the Sbasic Input/Output 
routines follows. A copy of the 780 source code 
for these I/O drivers is included on the Sbasic 
diskette under the file name SBASICIO.Z80. 


Users who have the need and desire to modify these 
routines may modify this code, assemble it (using 
the Cromemco 280 Macro Assembler), and replace the 
file named SBASICIO.SBR on the Sbasic diskette with 
the modified version. 


When Basicgen is executed the new file will be used 
to supply the I/O routines and the user's modified 
drivers will automatically be incorporated into the 
generated Sbasic. 


Notice that after assembly of the file SBASICIO.Z80 
the file SBASICIO.REL will be created on the disk. 
This file must be renamed before executing Basicgen 
So that it may be properly incorporated into the 
generated version of Sbasic. This may be done from 
CDOS as follows: 


Ren SBASICIO.SBR=SBASICIO.REL 


Please refer to the following source listing itself 
for additional information. 
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CROMEMCO CDOS 280 ASSEMBLER version 02.15 PAGE 0001 
BIO - STRUCTURED BASIC I/O ROUTINES << introduction >> 


MORROS OOOO OOO 
THE FOLLOWING ROUTINES AND TABLES CONSTITUTE SBASIC'S INTERFACE 
TO THE VARIOUS PERIPHERAL DEVICES. 


FROM SBASIC A PERIPHERAL DEVICE IS TREATED AS IF IT WERE AN 
ORDINARY DISK FILE WITH THE FOLLOWING EXCEPTIONS: 


1. The 'file' (peripheral) name must start with a dollar sign. 

2. Peripheral names must be unique within the next two characters. 
(i.e., "SLPT" and "SLPR" are seen as the same name.) 

3. Many functions within SBASIC can only refer to disk files; 
examples include RENAME, ERASE, and CREATE (it doesn't 
really seem logical to be able to ERASE a line printer, 
anyway). 

4. Specific peripherals may or may not support all I/O operations; 
one cannot GET data from a line printer, for example. 


RAR 


CROMEMCO CDOS 280 ASSEMBLER version 02.15 
<< externals, equates, entry points, etc. >> 


EXTERNAL ROUTINES WHICH MAY BE USED BY THE I/O ROUTINES 


0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 


EXT PSHALL 


EXT POPALL 


EXT UMULT 


EXT 
EXT 


ERTIME 
ERRIO 


TIME-OUT ERROR FOR TIMED INPUT, 
GENERAL I/O ERROR. 


PAGE 0002 


SAVE ALL REGISTERS (INCLUDING IX,IY,HL',ETC.) 


ON CPU STACK 


RESTORE ALL REGISTERS 


NOTE: THESE ROUTINES MUST BE ACCESSED BY А 'CALL' 


DO NOT 'JP' TO THESE ROUTINES 


UNSIGNED MULTIPLY 


BC * DE => HL,DE (16 BIT RESULT IN DE) 

IF HL»0 (32 BIT RESULT) ROUTINE RETURNS 'NZ* 
[USE CDOS CALL FOR DIVIDE, IF NEEDED.] 

DO NOT USE. 

TO USE, PLACE DESIRED ERROR 
CODE IN THE A REGISTER AND CALL ERRIO, 

NOTE: IF ERROR CODE IS 0-127, THE RESULTANT 
ERROR WILL NOT BE TRAPPABLE FROM THE 
SBASIC PROGRAM, 

ALSO SEE BELOW FOR SPECIAL ERROR RETURNS 
FROM SOME FUNCTIONS, 


NOTE: 


PORRO 


ENTRY POINTS WITHIN THIS MODULE 


Ὁ IEE GI IEE IIIS OOOO ROGA 


0050 ENTRY DDLIST ; 
0052 
0053 


ENTRY i 

1 

0054 1 
; 


SYGETC 
NOTE: 


0055 
0056 


0058 ENTRY SYPUTC ; 
0059 ; 
0060 ENTRY CHSTAT ; 
0061 1 


CHECK 


PUT-A-! 
FOR ALL CONSOLE OUTPUT. 


MASTER DEVICE DRIVER TABLE 


GET-CHARACTER-FROM SYSTEM CONSOLE 


NOT NORMALLY USED FOR PROGRAM EDITING 

AND 'INPUT', USED BY DRIVER "$CONSOLE" 

AND BY "СЕТ! STATEMENT ('GET\O\...') 

AND ALWAYS USED IF 'SET 14,1' USED IN SBASIC, 


CHARACTER TO SYSTEM CONSOLE, USED 


CONSOLE STATUS. USED FOR CHECKING TO SEE 


IF A KEY (PARTICULARLY AN ESCAPE) HAS BEEN PUSHED. 
` 


CROMEMCO CDOS 280 ASSEMBLER version 02.15 PAGE 0003 
<< externals, equates, entry points, etc. >> 


ΣῈ АА RRA A AAA TIO TISAI ΤΙ 


FIXED OFFSETS AND RAM TABLE LOCATIONS WITHIN SBASIC WHICH ARE USED 
BY 1/0 ROUTINES. 


JAI ISI RARA A RARA RARA RARA RARA ARANA RARA TICS RARA ARA AREA THOT TOI RARA ARA 


THE EXTENDED FILE CONTROL BLOCK (EFCB) 
EACH OPEN FILE IS ASSIGNED AN EFCB (AND ALL CALLS RECEIVE ADDRESS 
OF THIS EFCB IN THE IY REGISTER). CERTAIN PARAMETERS ARE PASSED 
TO THE I/O ROUTINES VIA THESE BLOCKS. 


(0000) 0076 EFCB EQU 0 ; THE BASE ADDRESS 
(0000) 0077 EFCBUS EQU 0 ; EFCB-IN-USE FLAG: SET AND RESET BY SYSTEM! 
0078 ; DON'T TOUCH! 
(0001) 0079 EFCBDA EQU 1 ; ADDRESS OF THE DEVICE DRIVER CURRENTLY USING 
0080 ; THIS EFCB. NOTE THAT THIS IS THE ADDRESS 
0081 ; OF THE HEAD OF ITS TABLE (SEE BELOW). 
(0003) 0082 EFCBDD EQU 3 ; DEVICE DEPENDENT INFORMATION -- THESE TWO BYTES 
0083 ; ARE COPIED FROM THE DEVICE'S ENTRY IN DDLIST. 
(0005) 0084 EFCBP1 EQU 5 ; PARAMETER l ... PASSED AT 'OPEN' TIME VIA 
0085 2 'OPENNCHANNEL,PARMl,PARM2N...' FROM SBASIC. 
(0007) 0086 EFCBP2 EQU 7 ; PARAMETER 2 ... PASSED BY 'OPEN', AS ABOVE. 
(0009) 0088 EFCBS1 EQU 9 ; STATUS PARAMETER 1 ... PASSED AT I/O TIME VIA 
0089 3 GET, PUT, PRINT, INPUT ... FOR EXAMPLE: 
0090 ; 'GETNCHANNEL, STATUS] ,STATUS2\...' FROM SBASIC. 
(000B) 0091 EFCBS2 EQU 1 3 STATUS PARAMETER 2 ... SIMILAR TO EFCBS1. 
(0000) 0093 EFCBFREE EQU 13 
(00BF) 0094 EFCBTOP EQU 191 ; THE REST OF THE 192 BYTES OF THE EFCB IS AVAILABLE 
0095 ; TO THE DRIVER FOR TEMPORARY STORAGE, BUFFERED 1/0, 
0096 ; OR WHATEVER IS NECESSARY. 


Equates for CDOS system calls, etc. 


(0002) 0101 SYSPUTC EQU 2 р "РОТ C'HARACTER TO SYSTEM CONSOLE 

(000B) 0102 SYSCRDY EQU 11 ; CHECK IF CHARACTER READY AT SYSTEM CONSOLE 

(0080) 0103 SYSRNE EQU 128 ; READ ONE CHARACTER FROM SYSTEM CONSOLE, WITHOUT ECHO 

(008E) 0104 SYSCRT EQU 142 ; Special CRT Function (cursor addressing, fhelds,etc.) 

(0003) 0106 SYSRDR EQU 3 ; GET BYTE FROM 'READER' DEVICE | 
(0004) 0107 SYSPUN EQU 4 ; PUT BYTE TO 'PUNCH' DEVICE 

(0005) 0108 SYSLPT EQU 5 ; PUT BYTE TO 'LIST' OR 'PRINTER' DEVICE 


CROMEMCO CDOS 280 ASSEMBLER version 02.15 PAGE 0004 
<< externals, equates, entry points, etc. >> 


BR 


FIXED RAM LOCATIONS 
CAUTION! VALID ONLY FOR VERSION 03.XX SBASIC. 


0118 ABS 
(0005) 0119 CDOS: EQU 5 ; SBASIC ALWAYS USES STANDARD CDOS ENTRY POINT! 

0000 0122 ORG 0230H 
0123 SETSYS: ; THE VARIOUS SET/SYS() PARAMETERS 1 
0124 3 SEE SBASIC MANUAL FOR EXPLANATION OF USAGE FROM 
0125 ; SBASIC...SOME OF THESE MAY BE USEFUL TO 
0126 ; AN I/O DRIVER. PARAMETERS THAT SHOULD NOT 
0127 + BE CHANGED HAVE NOT BEEN NAMED HERE. 

0230 (0002) 0128 PAGESIZE DS 2 1 MAX CHARACTERS PER LINE FOR OUTPUT,..IF MSB 
0129 H IS SET, PAGESIZE IS INFINITE. 

0232 (0002) 0130 TABSIZE DS 2 + NUMBER OF COLUMNS BETWEEN PRINT POSITIONS WHEN 
0131 1 USING "PRINT A,B,...' 

0234 (0002) 0132 LASTCHAR DS 2 3 LAST CHARACTER OUTPUT TO ANY DEVICE (LSB ONLY) 
0133 ; 

0236 (0002) 0134 LASTERR DS 2 ; LAST RUNTIME ERROR NUMBER IS IN LSB, MSB NOT USED 
0135 f BY SYSTEM, BUT MOST USER PROGRAMS EXPECT 
0136 ; IT TO BE ZERO. 

0238 (0002) 0137 COLUMN DS 2 ; CURRENT PRINT COLUMN, RESET TO ZERO ONLY BY CR 
0138 1 (BUT I/O ROUTINES COULD CHANGE IF WANTED) 

023A (0002) 0139 TIMER DS 2 1 INPUT TIMEOUT COUNTER, 
0140 ; 


THE FOLLOWING LOCATIONS REFERENCE INTERNAL SBASIC FLAGS, ETC. 
$CONSOLE USES THEM TO PROVIDE I/O TRULY COMPATIBLE WITH 'SYGETC' 
(SEE BELOW). NO DOCUMENTATION OF USAGE IS PROVIDED. USER-WRITTEN 
DRIVERS SHOULD NOT USE THESE LABELS. 


(031D) 0148 FLGECH EQU 031DH 
(0260) 0149 MODECH  EQU 0260H 
(0267) 0150 MODFIL  EQU 0267H 


(021F) 0151 MODRUN EQU 021FH 


CROMEMCO CDOS 280 ASSEMBLER version 02.15 PAGE 0005 
<<< DDLIST - list of available drivers >>> 


0154 REL ; BEGIN ACTUAL CODE GENERATION 
DDLIST -- a table of names, entry point addresses, etc. of all 
peripheral device drivers available to SBASIC users. 


DDLIST consists of a series of 8-byte entries, each defining a separate 
device driver. The format of each entry must follow 
certain rules. The offsets of required information within 
each entry is shown below: 


OFFSET (bytes) INFORMATION 


0 (2) the device name...without the '$' that the SBASIC 
user needs. 

2 (2) the address of the driver that will handle I/O to 
this named device. 

4 (2) device dependent ... each driver may designate its 


own usage for these bytes. 
NOTE: SBASIC will move these bytes into the 
bytes labeled EFCBDD within the appropriate 
EFCB before calling the driver's OPEN routine. 
6 (2) RESERVED for future use. Should be zero. 


PORCIÓN IIIT TCI I IIIT II ATI IIIA IIT TAI IIS II ISI IIIA: 


the actual DDLIST: 


first entry 


0186 DDLIST: 


0000' 434F 0190 db "co" р "5СОпво1е" -- the system console driver 

0002" 3300" 0191 dw DRCONSOLE ; address of the driver for this device 

0004' 0000 0192 db 0,0 ; driver does not use device dependent info 

0006' 0000 0193 dw 0 Σ --reserved-- 

next entry 

0008' 5359 0197 db "sy! 3 "$SYstem console" -- historical name 
0198 ; NOTE: this driver differs from $CONSOLE in that 
0199 ; it directly accesses the 4FDC/TUART port 
0200 š rather than going thru CDOS. CAUTION!1 

000A' ACOO' 0201 dw DRTUART ; address of the general purpose TUART driver 

000C' 00 0202 db 00H ; first EFCBDD byte: port address I 

0000" 00 0203 db 0 š second EFCBDD byte: do not set baud rate on OPEN 

000Е" 0000 0204 dw 0 Σ --гевегуей-- 

next entry 

0010" 5435 0208 db “rs? 2 "$T50" -- tuart port 50H -- used in some systems 
0209 i as a serial line printer. 

0012" Acoo' 0210 dw DRTUART ; note that the driver address is the same as that 


CROMEMCO CDOS 280 ASSEMBLER version 02.15 
<<< DDLIST - list of available drivers >>> 


0014' 50 
0015' 00 
0016" 0000 


next entry 


0018' 4C50 
001A' 0401* 
001C' 0000 
001E' 0000 


next entry 


0020' 5244 
0022" 3901" 
0024" 0000 
0026" 0000 


next entry 


0028' 5055 
002A' 2201" 
002C' 0000 
002E* 0000 
no more entries 


0030" 00 


db 
db 
dw 


50H 


‘put 
DRPUNCH 


0 


PAGE 0006 


used by "SSY" 111 
first EFCBDD byte: port address is 50H. 
second EFCBDD byte: do not set baud rate on OPEN 
--reserved-- 


"SLPT" -- the line printer 
address of its driver 

no EFCBDD info 
--reserved-- 


"$RDR" -- the CDOS "reader device' driver 
address of driver 


"$PUNCH" -- the CDOS 'punch device' driver 
address of driver 


*** this zero byte must be here to signal 
the end of DDLIST *** 


CROMEMCO CDOS 280 ASSEMBLER version 02.15 PAGE 0007 
<<< comments on schema of driver routines >>> 


Just as the DDLIST must adhere to a certain format, a peripheral device 
driver must conform to SBASIC's rules. 


The driver address specified at OFFSET 2 within any DDLIST entry must, 
in turn, point to a table of eight (8) two-byte addresses. 
Each address within this new table (known as the 'DRIVER 
ROUTINES TABLE') points to a sub-driver which implements a particular 
primitive I/O function, according to SBASIC's definition thereof. 


The following shows the offset within the table (in bytes) of each 
subroutine address, a description of the necessary routine, and 
a list of what parameters are passed and where. The notation 'ERROR:' 
indicates what error message results if the A register contains a 
non-zero value upon return from the routine. Be sure to zero A 
if no error is encountered!!! 


OFFSET (bytes) DESCRIPTION 


0 (2) * OPEN. This routine is called when the user OPENS 
the device from SBASIC. It should perform 
any needed initialization. 

EFCBDD contains the device dependent bytes 
from the DDLIST entry. 
EFCBPl and EFCBP2 contain the parameters passed 
by the user's OPEN request (see above). 
The A' register contains 0,1, or 2 -- a count 
of the parameters passed. 
(note: EFCBPl and EFCBP2 will contain OFFFFH 
if the user did not specify a value.) 

ERROR: 134, Cannot open file. 


2 (2) * CLOSE. called when the file channel (number) is closed 
either implicitly or explicitly. The routine 
Should perform any necessary cleanup (buffer 
flushes, etc.). 
NO parameters are passed. 
ERROR: 142, Cannot CLOSE file. 


4 (2) Ж SET STATUS OR POSITION. called at each usage of апу 

file I/O statement (GET, PUT, PRINT, or INPUT). 
The parameters specified by the user ( as in 
‘PUT Nchannel,parml,parm2N ...' ) are passed 
to SET STATUS for usage on a device-dependent 
basis. 

EFCBS1 and EFCBS2 contain the parameters (or 
OFFFFH if not specified). 

Register A' contains the parameter count. 

ERROR: 140, File position/status. 


6 (2) GET STATUS OR POSITION. called by the IOSTAT() 
function. Usage is device dependent, and 
the second value of the function may be 
used to select one of several returned values. 
Register A' contains the second value passed 
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to the IOSTAT function (e.g., "n" in 
*IOSTAT( channel, n )' 
ERROR: 140, File position/status. 


8 (2) OUTPUT ONE BYTE or character. Currently all 1/0 
to peripheral devices is performed on a 
byte-at-a-time basis. If buffering is desired, 
the driver should provide it. 
The byte to output is passed in the A register. 
(No error return exists for this function -- 
use ERRIO as noted above to force an error.) 


10 (2) INPUT ONE BYTE or character. The byte is NOT masked 
to 7-bits by GET, but is so masked by INPUT. 
The input byte should be returned in the 
^ register. 
(No error return exists for this function -- 
use ERRIO as noted above to force an error.) 


) --RESERVED-- not currently in use. should be zero. 
2) --RESERVED-- not currently in use. should be zero. 


an asterisk denotes routines which MUST be Included ; in 
each driver! 
for the optional routines, an omitted routine should be 
be marked by an address of zero. A user attempt 
to access such a routine (e.g., by trying to INPUT 
from a line printer) will generate an ERROR: 130, 
Invalid command for device. 


Several of the device drivers have 'missing' routines...that is 
they do not implement one or more of the 'required' routines 
(open, close, and set status). However, SBASIC will not run 
correctly with a driver if these routines are not supplied. 
Since these routines are expected to return a zero in the 
A register if no errors are encountered, the following routine 
serves this purpose. 


0343 „dummy: 
0031' AF 0344 XOR ^ ; this zeroes the A register... 
0032' c9 0345 RET ; and this ensures a no-error routine to SBASIC. 


2 


CROMEMCO CDOS 280 ASSEMBLER version 02.15 


<<< the CONSOLE driver >>> 


PAGE 0009 


the driver for $CONSOLE includes the routines used for SBASIC's 


primary console 1/0. 


EXCEPT: 


0033' 3100* 
0035' 3100" 
0037' 9000* 
0039' 0000 
003B' 4300" 
0030" 5100" 
003F' 0000 
0041" 0000 


Program entry from the keyboard and responses to the 
INPUT statement use the CDOS read-a-buffered-line 


system call. 


Usage of the CDOS routine may be 


overridden by the user via a 'SET 14,1' command. 
NOTE that the command sequence 


OPEN Хал "SCONSOLE" 
INPUT Хақ... 


will NOT use the CDOS routine, but will instead use 


this driver. 


0364 DRCONSOLE: 


0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0380 
0381 


dw 
dw 
dw 


dw 


dw 
dw 


dw 
dw 


end of driver table for $CONSOLE 


«dummy 
+ dummy 
CONSET 
0 


SYPUTC 
CONGETC 


0 
0 


the CONSOLE does not require or use an OPEN routine 
nor does it use a CLOSE routine 
but NOTE that the routines must exist, 
even if they are dummies 111 
the SET STATUS routine may be used to change 
cursor position, etc. 
currently, the CONSOLE does not support a status 
read (cursor read?) 
NOTE that this routine may be omitted, and 
hence the'use of the zero 'address'. 
master system output-a-character routine 


get-a-character from console: almost identical 
to master system getc...see below. 

--reserved-- 

--reserved-- 


DE RA RARA RARA A RARA RARA RARA A RARA RARA RARA R RARA RARA NARRA RA 
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start of driver routines: 


put-a-character 


0394 SYPUTC: 


PAGE 0010 


0043' D5 0395 PUSH DE ; (NORMALLY NOT REQUIRED OF A DRIVER -- 

0044' C5 0396 PUSH BC 1 SYSTEM DRIVER IS AN EXCEPTION -- SAVES TIME 

0045' 3A3402 0397 LD A,(LASTCHAR) ; AND SPACE MANY PLACES TO HAVE IT DO ITS 
0398 Σ OWN HOUSEKEEPING.) 

0048' 5F 0399 LD E,A ; CDOS EXPECTS THE CHARACTER HERE 

0049" 0Е02 0400 LD C,SYSPUTC ; SYSTEM CALL FOR PUTC 

004B' CD0500 0401 CALL CDOS ; OUTPUT THE CHARACTER 

004E' Cl 0403 POP BC ; RECOVER OUR OWN REGS... 

004F* Dl 0404 POP DE 

0050' C9 0405 RET ¿AND QUIT. 


ὋΣ RARA RRA RARA AA RRA RA Een 


GET-A-CHARACTER 


CONGETC is specially designed to 'simulate' console I/O and hence must foo 
SBASIC's get-a-line routine into believing that it called SYGETC 


directly instead of via $CONSOLE. 
0416 CONGETC: 


0051" 3A1D03 0417 LD A, (FLGECH) 
0054' 326002 0418 LD (MODECH) ‚A 
0057' 3EFF 0419 LD A,0FFH 

0059' 326702 0420 LD (MODFIL),A 


3 GET-A-LINE IS PROPERLY FOOLED 


NOW CONGETC SIMPLY FALLS THRU TO SYGETC...SBASIC'S STANDARD GET-A-BYTE-FRO 
CONSOLE ROUTINE (SEE NOTE ABOVE ABOUT 'SET 14,1'). 


NOTE: SYGETC DOES SEVERAL THINGS IN ITS OWN WAY: 
WHICH IS HANDLING THE INPUT TIMER 
0429 SYGETC: 
0430 
(00AF) 0431 .TIME EQU 175 А 
0432 ; 
0433 ; 
0434 2 
005С" Е5 0436 PUSH HL 3 
0050" D5 0437 PUSH DE 
005E' C5 0438 PUSH BC 
005F' 3A1F02 0440 LD 
0062' B7 0441 OR 
0063' 281F ` 0442 JR Z,CHARRDY 
0065" РАВ. 0443 JP M,CHARRDY 


NOT THE LEAST OF 
TIMEOUT. 


THIS IS THE FUNDAMENTAL WAIT-FOR-A-TENTH-OF-A-SECOND 
COUNTER VALUE...CHANGE THIS TO FIT YOUR SYSTEM 

IF YOU WISH (DIFFERENT MEMORY SPEEDS, DIFFERENT 
VERSION OF CDOS CAN AFFECT THIS). 


AGAIN, SYGETC DOES ITS OWN HOUSEKEEPING 


A,(MODRUN) ; FLAG: >0 IF A PROGRAM IS RUNNING! 
A 


; PROGRAM EWTRY...NO TIMED INPUT 
; DIRECT S IMENT EXECUTION...TO TIMING 


4 
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0068' 2A3A02 0445 LD nen) 

006B' 7C 0446 LD 

006C' B5 0447 OR ; CHECK CURRENT VALUE OF TIMER 

006D' 2815 0448 JR 3 CHARRDY ; THE TIMER IS ALREADY ZERO. MEANS ITS NOT ACTIVE. 


READY TO DO TIMED INPUT 


0453 TIMED: 


006F' 06AF 0454 LD B,.TIME 

0456 SGCLOOP: ; WAIT LOOP 
0071' CDA600' 0457 CALL CHSTAT ; CHECK FOR CHARACTER READY...SEE BELOW 
0074! B7 0458 OR A 
0075' 200D 0459 JR NZ,CHARRDY ; STOP TIMING...A CHARACTER IS READY 
0077" 10F8 0460 DJNZ SGCLOOP ; OTHERWISE KEEP WAITING 


MINOR TIMER (REG B -- .TIME) HAS TIMED OUT...TICK OFF 1/10TH OF A SECOND 


0079' 2B 0465 DEC HL ; COUNT DOWN BY ONE 

007A' 22302 0466 LD (TIMER) ,HL ; AND PUT IT BACK FOR NEXT TIME 
0070" 7C 0467 LD A,H 

007E' B5 0468 OR L AND CHECK ONCE AGAIN... 


П 
007F' сс0000% 0469 CALL Z,ERTIME ; TIMER RAN OUT. GENERATE USER-TRAPPABLE 
0470 ; ERROR...NOTE THAT SYS(5) IS ALREADY SET TO 0 NOW 
0471 + SO FURTHER INPUTS WON'T BE TIMED. 
0082' 18ЕВ 0472 JR TIMED ; AND GO TRY FOR ANOTHER TIMER TICK 


ARARRARRA RARA AAA IIIA AA RARA RARA RRA IIIS TAIT AR RRA RARA RARA RARAA RARA 
TO HERE WHEN 1) CHARACTER 1S READY OR 2) WHEN WE ARE NOT DOING TIMED INP 


0477 CHARRDY: 


0084' 0E80 0478 LD C,SYSRNE 3 READ FROM CONSOLE WITH NO ECHO 

0086' CD0500 0479 CALL CDOS ; (BECAUSE SBASIC DOES ITS OWN SPECIAL ECHOING) 
0089' 323402 0480 LD (LASTCHAR) ,A 3 HISTORICAL 

008C' Cl 0481 POP BC 

008D' Dl 0482 POP DE 

008E' El 0483 POP HL 3 CLEAN UP OUR HOUSE 

008F' C9 0484 RET 3 AND BACK TO CALLER 


ARARARAARAR RARA RENA R RARA RARA RARA TITTIES IAGO ΤΩΣ 
CONSOLE SET STATUS ( SET CURSOR POSITION ) 


0490 CONSET: 


0090' 08 0491 EX AF,AF' ; GET COUNT OF PARAMETERS TO A REGISTER 

0091' B7 0492 OR A 1 IS COUNT ZERO? 

0092' c8 0493 RET 2 ; YES...SO WE DON'T DO A SET STATUS. NOTE THAT 
0494 Σ WE ARE RETURNING WITH A=0...IMPLYING 
0495 $ THAT WE FOUND NO ERROR! 

0093' 1E00 0497 LD E,0 3 ( IN CASE THERE IS NO SECOND PARAMETER ) 

0095' FD5609 0499 LD D,(IY*EFCBSI) ; D REGISTER GETS LSB OF FIRST PARAMETER... 
0500 E NOTE THAT NO CHECK IS PERFORMED 


0501 3 AS TO LEGALITY OF THE VALUE. ..SEE 
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0502 CDOS MANUAL FOR SIDE-EFFECTS. 
0098" FEO2 0503 cP 2 H NOW CHECK: DID USER PASS A SECOND PARAMETER? 
009A' 2003 0504 JR NZ,CSET2; NO...SO WE USE THE ZERO IN E-REGISTER AS PARM2 
009C' FD5EOB 0506 LD E, (IY+EFCBS2) ; AND THIS IS LSB OF SECOND PARAMETER. 
0508 CSET2: 
009F' OE8E 0509 LD C,SYSCRT ; REQUEST SPECIAL CRT FUNCTION 
00A1' CDO500 0510 CALL CDOS 1 e.. FROM CDOS 
00A4' AF 0512 XOR ^ ; ENSURE THAT A-0 (NO ERROR ENCOUNTERED) 
00A5' C9 0513 RET ; AND BACK TO USER 


Λνὲ:τύτττκπῚ τ II TOTTI TOI IASI IIIT AT TIT TIT IIT I AAI IIIA 


THE FOLLWING ROUTINE IS REQUIRED BY SBASIC, IT IS THROUGH THIS 
ROUTINE THAT SBASIC CHECKS FOR AN ESCAPE-KEY WHILE A PROGRAM 
IS RUNNING, MODIFY AT YOUR OWN RISK! 


0520 CHSTAT: 


00A6' OE0B 0521 LD C,SYSCRDY 
00A8' CD0500 0522 CALL CDOS ; WE LET CDOS DO ALL THE WORK! 
00AB' C9 0523 RET 
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DRTUART -- this is a fairly complete driver for serial I/O via 


FEATURES: 


One driver may be used to access any TUART port. 


a Cromemco TUART (or the serial port of the 4FDC). 


The DDLIST may specify a default baud rate (to 9600 baud) or 


it may specify that the currently set baud rate remain 
unchanged. 


The SBASIC user may override any baud rate specified via the DDLIST. 


BC00' 
3100' 
3100" 
0000 
Е800' 
F700' 
0000 
0000 


0537 DRTUART: 


0539 
0540 
0541 
0542 
0543 
0544 
0545 
0546 


the driver table comes first 


open a tuart port 

no CLOSE routine needed 

set status not supported 

get status not legal 
put-a-character to TUART port 
get-a-character from TUART port 
--reserved-- 

--reserved-- 


ТТТ ТТТ ТТТ 
OPEN a TUART serial port 


00BC' 
00вғ" 
00с2' 
00с3" 


00c5' 


00с7' 
0069’ 
006Λ' 


00cB* 


00cp* 
DOCE" 


DDLIST-SPECIFIED BAUD RATE HAS BEEN SET 


D0CF* 
0050’ 
0001" 


FD4E03 


FD7E04 


0D 
0D 


08 
B7 
ca 


0551 TUOPEN: 
0552 
0553 
0554 
0555 
0556 
0557 
0558 


0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 
0569 
0570 
0571 


0575 TUOP2: 
0576 
0577 
0578 


LD 
LD 
OR 
JR 


OUT 


LD 
INC 
INC 


OUT 


DEC 
DEC 


EX 
OR 
RET 


C, (IY+EFCBDD) 


A, (IY+EFCBDD+1) 


AF,AF' 
A 
2 


USER REQUESTED A SPECIAL BAUD RATE/COMMAND FOR THE TUART 


00р2' 


0600 


0582 


LD 


Β,0 


ΤΗΕ FIRST ΒΥΤΕ OF THE DEVICE DEPENDENT INFO 
SPECIFIES THE TUART PORT ADDRESS. 

THE SECOND BYTE OF THE DEVICE DEPENDENT 
ENTRY...NOTE THAT SBASIC HAS MOVED IT FROM 
THE DDLIST INTO OUR OWN PERSONAL ΕΕΟΒΙ 

DID THE DDLIST SPECIFY A DEFAULT BAUD RATE? 
NO...LEAVE THE BAUD RATE ALONE 


SEND OUT BAUD RATE TO TUART...NOTE THAT 
THE DDLIST ENTRY IS EXPECTED TO CONTAIN 
THE CORRECT BIT PATTERN FOR THE DESIRED 
BAUD RATE 111 CAUTION 111 
THIS IS A JUST-IN-CASE... 


WE ADDRESS PORT n2H...THE TUART COMMAND 
REGISTER 

AND ENSURE THAT WE ARE NOT IN 'HIGH BAUD' 
(OCTUPLED BAUD RATE) MODE. 


BACK TO PRIMARY PORT ADDRESS 


GET COUNT OF USER-SPECIFIED PARAMETERS 


NONE SPECIFIED...SO WE ARE DONE WITH 'OPEN' 


A DEFAULT VALUE: NO OCTUPLED BAUD RATE 
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00D4' FEO2 0583 ср 2 
0006" 2003 0584 JR NZ,TUOP3 
0008' FD460B 0585 LD B, (IY+EFCBS2) 
0586 TUOP3: 
оорв' OC 0587 INC c 
оорс' oc 0588 INC [4 
0000' EDAL 0589 our (c),B 
0590 
905Ρ' OD 0591 DEC € 
9050’ 0D ` 0592 DEC c 
00E1* FD7E09 0594 LD A, (IY+EFCBS1) 
00E4' ED79 0595 OUT (C), A 
0596 
00E6' AF 0598 XOR A 
00E7' C9 0599 RET 


П 


РАСЕ 0014 


DID USER SPECIFY 2 PARAMETERS? 
NO...JUST ONE. 
YES,..RETRIEVE IT... 


THE 2ND PARM (OR DEFAULT) IS THE TUART 
COMMAND REGISTER SPECIFIER! 


BACK TO THE BAUD-RATE PORT 
GET USER-SPECIFIED BAUD RATE 


AND NOW THE TUART BAUD RATE AND COMMAND ARE 
COMPLETE! 


RETURN WITH NO ERROR INDICATION 


ῬῚ Ὁ III II TTI CII III IOI IIIT ION 


OUTPUT ONE CHARACTER TO TUART 


0604 TUPUTC: 


00Е8! FD4E03 0605 LD C, (IY+EFCBDD) 
0058’ 47 0607 LD B,A 
0609 TPCLOOP: 
00ЕС' ED78 0610 IN A, (C) 
00ЕЕ' E680 0611 AND 080H 
00Ρ0' 28FA 0612 JR Z,TPCLOOP 
0613 
00F2' 0C 0615 INC c 
00F3' 78 0616 LD A,B 
00F4' ED79 0617 OUT (C) A 
00F6' C9 0618 RET 
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GET PORT ADDRESS FROM EFCB (SEE TUOPEN) 


SAVE BYTE TO BE OUTPUT HERE FOR NOW 


GET STATUS OF THIS TUART 

CHECK: IS TRANSMIT BUFFER EMPTY? 

NO...WE MUST WAIT FOR IT TO FINISH LAST 
CHARACTER TRANSMISSION. 


TO THE DATA PORT OF THE TUART 
SO THAT BYTE RETURNS STILL IN A 
AND OUTPUT ONE BYTE TO TUARTI 


FOCI GI ICICI IOI III ICICI IIIT III II III IIIT IIIT GIST III ICI ICT IIIS ICI OGGI I III A: 


INPUT ONE CHARACTER FROM TUART 


0624 TUGETC: 


00F7' FD4E03 0625 LD C, (IY+EFCBDD) 
0627 TGCLOOP: 

OOFA' ED78 0628 IN A, (0) 

OOFC' E640 0629 AND 040H 

OOFE' 28FA 0630 JR 2,TGCLOOP 

0100' ος 0632 INC c 

0101' ED78 0633 IN A, (С) 

0103' c9 0634 RET 


THE PORT ADDRESS FROM EFCB 


CHECK TUART STATUS PORT 
IS DATA AVAILABLE YET? 
NO...WAIT FOR IT. 


TO THE DATA PORT OF THIS TUART 
GET THE BYTE 
AND QUIT. 
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< .NTERFACES TO CDOS READER, PUNCH, AND LIST DEVICES >>> 


These interfaces are simple. They support only 


unidirectional 1/0, do not allow any status passing, and (with the 
exception of the printer driver) do nothing at OPEN or CLOSE time. 


AARRARRAAA RARA ARANA RARA A RARA REA A RRERAR ERA RRA RA RAR RARA RARA ARENA RRA OGGI GR I IEE 
PRINTER or LIST device --- "SLPT" from SBASIC 


BR 


0646 DRLPT: ; first, the driver address table 
0104" 1401" 0648 dw LPTOPEN ; a simple open routine 
0106' 3100* 0649 dw .dummy 1 no CLOSE routine 
0108' 3100" 0650 dw «dummy ; and no SET STATUS routine 
010A' 0000 0651 dw 0 ; GET STATUS is illegal here 
010C' 1B01* 0652 dw LPTPUTC ; output 1 character to the printer 
010E' 0000 0653 ἂν 0 ; trying to get a character from a printer is illegal 
0110' 0000 0654 dw 0 ; --reserved-- 
0112* 0000 0655 dw 0 } --reserved-- 


COEUR A 


0114' ЗЕ0С 0659 LD A,OCH i THIS IS AN ASCII FORM FEED... 

0116* CD1B01' 0660 CALL LPTPUTC ; ...WHICH WE OUTPUT EACH TIME THE PRINTER IS OPENED 
0119' AF 0662 XOR ^ ; ZERO TO A 

011A' C9 0663 RET i ++ SAYS THAT OPEN WAS SUCCESSFUL | 


0658 LPTOPEN: 


ARARARRA RARA ἸΙΛῸῪΚΧνὲὺΧΧΞΤΟῈΚΝΝΗΥΗῊῊΠ“Π“ A RARA RARA III 


0666 LPTPUTC: 


011B' 5F 0667 LD E,A ; MOVE CHARACTER TO WHERE CDOS EXPECTS IT 
011C' 0E05 0668 LD C,SYSLPT Р 

011Е' CD0500 0669 CALL CDOS ; AND OUTPUT ONE CHARACTER VIA CDOS 

0121' c9 0670 RET і AND THAT IS ALL 


MOI AAA A RARA AA RRA RARA RARA RRA RARA RANA RRA AA RRA ΤΠ 
PUNCH device -- "$PUNCH" 


RR 


0676 DRPUNCH: 


the device address table 


0122' 3100' 0678 dw «dummy ; no OPEN routine 

0124' 3100" 0679 dw «dummy ; no CLOSE routine 

0126" 3100" 0680 dw „dummy у no SET STATUS routine 

0128* 0000 0681 dw 0 1 GET STATUS is illegal 

012A' 3201' 0682 dw PUNPUTC ; output 1 character to punch 
012C' 0000 0683 dw 0 i get-a-byte from punch Hn illegal 
012Е" 0000 0684 dw 0 i --reserved-- 

0130' 0000 0685 dw 0 1 --reserved-- 


ARAAARRAL AREA A RARA RARA A RRA RA RARA REA RARA RARA RARA RARA A RRA RA RRA RARA RARA AR 


0688 PUNPUTC: 


; OUTPUT ONE CHARACTER TO PUNCH 


0132' 5P 0689 LD E,A р WHERE CDOS EXPECTS THE CHARACTER 
0133' 0E04 0690 LD C,SYSPUN 

0135" Ср0500 0691 CALL CDOS i OUTPUT VIA CDOS SYSTEM CALL 
0138' C9 0692 RET 
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R—————————VVAA ТЕТЕ 
READER driver -- "$RDR" 


AA 


0699 DRRDR: ; device driver address table 
0139" 3100" 0701 dw .dummy ; no OPEN 
013B' 3100' 0702 dw .dummy ; no CLOSE 
013D' 3100" 0703 dw .dummy ) по SET STATUS 
013F' 0000 0704 dw 0 ; illegal to GET STATUS 
0141' 0000 0705 dw 0 ; can't PUT a character to the reader 
0143' 4901" 0706 dw RDRGETC ; get 1 character (byte) from reader 
0145" 0000 0707 dw 0 ; —reserved-- 
0147' 0000 0708 dw 0 y --reserved-- 
HAARARARARRARARA RRA RARA RARRRARRARA (ES 
0711 RDRGETC: GET 1 BYTE FROM READER DEVICE 
0149' 0Ε03 0712 LD C,SYSRDR 
014B' CD0500 0713 CALL CDOS ; LET CDOS DO ALL THE WORK! 
014E' C9 0714 RET 


ὲτ τὲ RAR ASI IIA A. 
END OF SBASIC DRIVERS...ADD YOUR OWN 


014F' (0000) 0719 END 
Errors 0 


Program Length 014F (335) 


